﻿Public Class GameExplainForm
    Private Sub GameExplainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim sss As String = "游戏说明：" + vbCrLf + vbCrLf _
            + "方向控制：键盘方向键" + vbCrLf + vbCrLf _
            + "暂停：鼠标单击屏幕" + vbCrLf + vbCrLf _
            + "继续：暂停时再次单击屏幕，或按下方向控制键以改变蛇的方向" + vbCrLf + vbCrLf _
            + "速度调节：主界面拖动滑块即可调节速度，速度范围在1-10格/秒之间"
        TextBox1.Text = sss
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class